﻿Namespace Config
    Public Class Config

        Private Shared _config As Config_B

        Public Sub New()
            _config = New Config_B()
        End Sub

        Public Shared Function GetValue(ByVal key As String) As String

            If _config Is Nothing Then
                _config = New Config_B()
            End If

            Return _config.GetValue(key)

        End Function

        Public Shared Function SetValue(ByVal key As String, ByVal value As String) As Boolean

            If _config Is Nothing Then
                _config = New Config_B()
            End If

            Return _config.SetValue(key, value)

        End Function

    End Class
End Namespace

